00100		ENTRY NITE
00200	NITE: 	0
00300		MOVEM 0,TEMP
00400		MOVE 0,@0(16)
00500		MOVE 1,@1(16)
00600		MOVE 2,@2(16)
00700		ADD 1,0
00800		SUB 1,2
00850		MOVEM 1,@1
00900		MOVE 2,0
01000		MOVE 0,TEMP
01100		JRA 16,0(16)
01200	TEMP:	0
01300	END